home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Micro on the Apple Volume 1 (1981)(Micro Ink)[no boot].zip / Micro on the Apple Volume 1 (1981)(Micro Ink)[no boot].do / LC ENTRY.bas < prev    next >
BASIC Source File  |  1996-12-24  |  1KB  |  29 lines
  1. 62980  REM  ************************
  2. 62981  REM  *                      *
  3. 62982  REM  *   LOWER CASE ENTRY   *
  4. 62983  REM  *  JAMES D. CHILDRESS  *
  5. 62984  REM  *                      *
  6. 62985  REM  *   LOWER CASE ENTRY   *
  7. 62986  REM  *                      *
  8. 62990  REM  *  COPYRIGHT (C) 1981  *
  9. 62991  REM  *    MICRO INK, INC.   *
  10. 62992  REM  * CHELMSFORD, MA 01824 *
  11. 62993  REM  *  ALL RIGHTS RESERVED *
  12. 62994  REM  *                      *
  13. 62995  REM  ************************
  14. 62996  REM 
  15. 63000 BB$ = "":BZ$ = "":BB = 0:ZZ = 0
  16. 63010  GET AA$:AZ$ = AA$: IF  ASC(AA$) = 13  THEN  NORMAL : GOTO 63130
  17. 63020  IF  ASC(AA$) = 1  THEN ZZ = 1: INVERSE :BB = 0: GOTO 63010
  18. 63030  IF  ASC(AA$) = 3  THEN BB = 1: INVERSE : GOTO 63010
  19. 63040  IF  ASC(AA$) = 19  THEN BB = 0: NORMAL : GOTO 63010
  20. 63050  IF ZZ = 1  OR BB = 1  THEN ZZ = 0: GOTO 63080
  21. 63060  IF  ASC(AA$) <65  OR  ASC(AA$) >90  THEN 63080
  22. 63070 AA$ =  CHR$( ASC(AA$) +32)
  23. 63080 BZ$ = BZ$ +AZ$: PRINT AZ$;: IF BB = 0  THEN  NORMAL 
  24. 63090 BB$ = BB$ +AA$: IF  ASC(BB$) = 8  AND  ASC(AA$) = 8  THEN  PRINT " ";
  25. 63100  IF  LEN(BB$) < = 2  AND  ASC(AA$) = 8  THEN BB$ = "":BZ$ = "": GOTO 63010
  26. 63110  IF  ASC(AA$) = 8  THEN BB$ =  LEFT$(BB$, LEN(BB$) -2)
  27. 63120  GOTO 63010
  28. 63130  PRINT : RETURN 
  29. 63140  END